home *** CD-ROM | disk | FTP | other *** search
/ 3D GFX / 3D GFX.iso / amiutils / u_z / weave / weave.rexx < prev   
OS/2 REXX Batch file  |  1995-12-30  |  2KB  |  68 lines
  1. /* 
  2.    $VER: Weave.rexx 1.0 04-14-95 ⌐ 1995 by Neil Taneja.
  3.    Waits for pictures and then calls Weave.
  4.    Deletes the pitures after each conversion.
  5. */
  6.  
  7. AddLib("rexxsupport.library", 0, -30, 0)
  8. Address Command
  9.  
  10. Parse Arg InBase OutBase Frame
  11. If InBase = '' Then Do
  12.     Say 'Usage: Weave InBaseName [OutBaseName] [StartFrame]'
  13.     Exit
  14.     End
  15. If (OutBase = '') | (OutBase = InBase) Then OutBase = InBase || '╖'    /* Check for No Name or Same Name and add a ╖ (Alt 8) */
  16. If Frame = '' Then Do
  17.     Frame = 0    /* 0 because CalcName will advance it to 2 */
  18.     End
  19. Else Do
  20.     If (Frame // 2) ~= 0 Then Do
  21.         Say 'StartFrame number must be even'
  22.         Exit
  23.         End
  24.     Frame = Frame - 2
  25.     End
  26.  
  27. Signal ON BREAK_C
  28.  
  29. Call CalcName
  30.  
  31.  
  32. Do FOREVER
  33.     Say 'Waiting For' EvenName '   ' Min || ':' || Sec || '0'
  34.     'Echo "*EM*EM"'        /* Jump up 2 lines. One for both the Say + Echo. Echo is resident under 2.0 so no disk access */
  35.     Sec = Sec + 1
  36.     If Sec = 6 Then Do
  37.         Sec = 0
  38.         Min = Min + 1
  39.         End
  40.     If ~Open(Temp, EvenName, 'R') Then Do
  41.         Call Delay(500)    /* 10 Seconds */
  42.         Iterate
  43.         End
  44.     Call Close(Temp)
  45.     Say; Say 'Converting' EvenName
  46.     Weave OddName EvenName OutName
  47.     Delete OddName EvenName
  48.     Call CalcName
  49.     End
  50.  
  51.  
  52. CalcName:
  53.     Frame = Frame + 2
  54.     OddName = InBase Frame - 1
  55.     OddName = Space(OddName, 3 - Length(Frame - 1), '0')    /* Put in Name001 (Name010, Name100, etc.) format */
  56.     EvenName = InBase Frame
  57.     EvenName = Space(EvenName, 3 - Length(Frame), '0')
  58.     OutName = OutBase Frame / 2
  59.     OutName = Space(OutName, 3 - Length(Frame / 2), '0')
  60.     Min = 0
  61.     Sec = 0
  62.     Return
  63.  
  64.  
  65. BREAK_C:
  66.     Say; Say '***Break***'; Say
  67.     Exit
  68.